SAMPLE POWERPOINT VBA CODE


Sub Simple_Macro()
MsgBox "Simple one VBA line statement"
End Sub




Sub Macro_with_a_Title()
MsgBox "Simple one line VBA statement with a title", vbInformation, "Title"
End Sub




Sub Macro_with_Multiple_Lines()
MsgBox "Type first line of text here" & vbCrLf & _
" " & vbCrLf & _
"Type second line of text here" & vbCrLf & _
" " & vbCrLf & _
Type third line of text here" & vbCrLf & _
" " & vbCrLf & _
"Now are you starting to get the picture...", vbInformation, "Title"
End Sub